home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Languages / APL90 / APL_PROGS / ANIMALS next >
Encoding:
Text File  |  1987-02-18  |  3.1 KB  |  133 lines  |  [TEXT/APL9]
  1.  
  2. a[136 4 113 106 102 9 102 109 102 113 105 98 111 117 8 100 112 115 99 102
  3. a[a,98 118 5 100 105 98 117 7 100 98 111 98 115 106
  4. a[Lav;a'
  5. Ganimaux<pp<vda<an<bn<opos<pos<re<s<r<w
  6. regle
  7. debut> ]:TrepKpensez_vous a un animalK"/fin
  8. vda[@1
  9. again> pos[0
  10. lp> ]:pos#0"/k1
  11. vda[vda,pos
  12. pos[t;opos[pos-1-rep getq t;pos''
  13. ]lp
  14. fin> Kau revoir...K
  15. ]0
  16. k1> ]:TrepKest_ce un K,an[geta_pos"/k2
  17. Kj'ai donc devin'e...K
  18. ]debut
  19. k2> Kalors, je ne vois pas de quoi il s'agit.K
  20. KL[Ka quel animal pensiez_vous Q K
  21. Larbout 15
  22. ]:0*Rbn[:K K*r"/r[KL"/k31
  23. Kah.K je me doutais bien que vous ne pensiez `a rien...K
  24. ]0
  25. k31> ]::sYbn"(.*:s[:Ran"SRbn"Yan"/k3
  26. Kesp`ece de banane, qu'est_ce que je viens de vous demander QK
  27. Kvous la voyez, vous, la diff'erence entre un K,an,K Q K
  28. Kbon, allez vous faire braire ailleurs...K
  29. ]0
  30. k3> r[isin bn
  31. ]:0%Rr"/k4
  32. Koh, mais je le connais d'ej`a .KK
  33. Kvous avez du vous tromper en r'epondant `a mes questions .KK
  34. Kje reprends `a la question qui vous a induit en erreur.K
  35. pp[:t%1Yr"/IRs[t=:Rt"R0 1 1
  36. kq> pp[3=Dpp+3
  37. ]:0%(/r[pp%vda"/kp
  38. vda[:1Y:r/IRvda""Rvda
  39. pos[pp
  40. ]lp
  41. kp> pp[:s%pp"/IRt
  42. ]kq
  43. k4> Ket a votre avis, quelle est la question qui permetK
  44. Kde distinguer un K,bn,K d'un K,an,K QK
  45. Larbout 15
  46. ]:0*Rre[@1U:r(1OMr[K K*re"/re[KL,K K"/k5
  47. Kah, vous ^etes bien enbarrass'e, n'est_ce pas QK
  48. Kbon, je n'insiste pas...K
  49. ]0
  50. k5> r[:_puta bn",pos
  51. t;opos'[Rt
  52. t[t,:putq re",:repKet, pour un K,bn,K, la r'eponse `a cette question est > K"OMr
  53. ]debut
  54. G
  55. Gp arb n
  56. :pRK M K",:getq t;n'",K QK
  57. ]:t;n-2'#0"/k1
  58. :pRK M K",Koui > K
  59. :p-3"arb t;n-2'
  60. ]k2
  61. k1> :pRK M K",Koui > K,geta_t;n-2'
  62. k2> ]:t;n-1'#0"/k3
  63. :pRK M K",Knon > K
  64. :p-3"arb t;n-1'
  65. ]k4
  66. k3> :pRK M K",Knon > K,geta_t;n-1'
  67. k4> :pRK M K",K -_____K
  68. G
  69. Gdoub<x<y
  70. yI:x%1OMx[t;y[HMt'"/IRt
  71. G
  72. Ggame<z
  73. Lio[0
  74. lp> animaux
  75. G
  76. Gr[geta x
  77. r[a;x-1-ILavIa;x''
  78. G
  79. Gr[getq x
  80. r[q;x-1-ILavIq;x''
  81. G
  82. Ginit
  83. Lio[0
  84. a[q[,KPK
  85. t[:putqKest_ce qu'il voleK"
  86. t[t,_:putaKelephantK",putaKpieK
  87. G
  88. Gr[isin x
  89. r[_:)_/:IRx"OM:x[Lav;Rx',x"J.%a"/IRa
  90. G
  91. Glistan<w
  92. w[@1=:t#0"/t
  93. geta 1Rw
  94. w[1Uw
  95. ]::Rw"&0"/2
  96. G
  97. Gprint
  98. 0 arb 0
  99. G
  100. Gr[puta x
  101. x[@1U:r(1OMr[K K*x"/x[x,K K
  102. r[Ra
  103. a[a,Lav;Rx',x
  104. G
  105. Gr[putq x
  106. x[@1U:r(1OMr[K K*x"/x[x,K K
  107. r[Rq
  108. q[q,Lav;Rx',x
  109. G
  110. q[136 18 70 116 117 46 100 102 33 114 118 40 106 109 33 119 112 109 102 23
  111. q[q,71 115 112 110 98 104 102 33 101 98 111 116 33 109 98 33 104 118 102 118
  112. q[q,109 102 29 70 116 117 46 100 102 33 114 118 40 106 109 33 117 115 112 110
  113. q[q,113 102 33 99 102 98 118 100 112 118 113 13 81 109 118 117 112 117 33 107
  114. q[q,98 118 111 102
  115. q[Lav;q'
  116. Gregle<w
  117. w[RKL[Kconnaissez_vous la r^egle du jeu Q K
  118. ]::1YwUKL"EKooK"/0
  119. Kvous allez penser fortement `a un animal,K
  120. Ket je vais essayer de deviner duquel il s'agit...K
  121. G
  122. Gr[rep x
  123. KL[x,K Q K
  124. LarboutKK
  125. ]::r[1Y:K K*r"/r[KL"EKononK"/ok
  126. Kr'epondez par "o" ou "n", svp .KK
  127. ]1
  128. ok> r[rEKooK
  129. G
  130. t[1 6 3 19 9 @14 42 @22 @5 71 @1 @27
  131.  
  132.  
  133.